program main

    use swift_file_m, only: rmdir, pwd, is_exist
    if (is_exist(pwd()//"/example/tmp")) call rmdir(pwd()//"/example/tmp")
    if (is_exist("./example/tmp2", dir=.true.)) call rmdir("./example/tmp2")
    if (is_exist("./example/tmp3", dir=.true.)) call rmdir("./example/tmp3")

end program main
